(compilation-start): Set window start to

point-min if compilation-scroll-output is nil.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 71946dd02f558d4927e0edc3a4a9daa57bf3314c..f75f2763e11c188c1d1a07cf8ddc4eab6f112614 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -913,7 +913,9 @@ Returns the compilation buffer created."
           'compilation-revert-buffer)
       (set-window-start outwin (point-min))
       (or (eq outwin (selected-window))
-         (set-window-point outwin (point)))
+         (set-window-point outwin (if compilation-scroll-output
+                                      (point)
+                                    (point-min))))
       ;; The setup function is called before compilation-set-window-height
       ;; so it can set the compilation-window-height buffer locally.
       (if compilation-process-setup-function